DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD ood CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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process to terminal 
ct process from terminal 
process after disconnect 


Check that terminal is disconnectable 


H 9 
C T = Connect/disconnect terminal 15-SEP-1984 23:41:17 pae 4 
yon 500 — — 33 749 Yeu —X 2 (1) | 


eTITL ONNECT = Connect/disconnect process to terminal 
*IOENT  SyOeeb00" 


—A 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL | QuiPRENT Co EORPORATION, MAYHARD. MASSACHUSETTS. 


SOFTWARE IS FUR A UNDER A LICENSE AND MAY BE USED AND coiee 

IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ES 544 MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
R PERS NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
+ 
* 
* 
x 
* 
* 
TRANSFERRED.” * 
* 
* 
* 
* 
* 
* 
+ 


88557 PS 
=Oo22r rr 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eepoket ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Soooooooooo 


eseeeeeeeeeeeeeeeenens 


RERAAAAAAAAAAAAAAAAAAAAAAAAAAAAARAAAAAAAAARAAAAARAAAAAEAAEAAAAAEAAEREARAEEAEEE 


SSssssss 
22——— 
ö 0002—000 0⏑oö0»S5——ü ä 0äÑ 


Sooo 


AUTHOR: 
Peter George, June 1983 
MODIFIED BY: 
v03-001 —**8 er George 27-Jun-1983 


e CONT as name e° ASCIC string not CONTINUE. 
bet event flags more intelligently. 


00 
00 
00 
00 
00 
00 
0 
0 
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; Macro library calls 


| 
| 
ABSTRACT 
Connect/disconnect process to terminal 


PRCDEF : Define process data structure 
WRKDEF 3; Define command data structure 
PTRDEF 3 Define token descriptor fields 
SCLIMSGDEF 3: Define cli related errors 
SDEVDEF 3: Define device charectertetics 
SOVIDEF 3; Define S$GETDVI codes 

SIODEF 3; Define $010 codes 

SRABDEF : Define RAB fields 

STT2DEF 3; Define —9—— charectartettes 


-PSECT DCLSZCODE ,BYTE.RD,.NOWRT 


NAAN ODNAUES WIN OS OO NAU EWN OS ODNAUE WN 0 OD NAMES WN OOONOUS Ww 


PUPVSVSVSUSISIS B® BP BS BS BBE EB EWI A AIA AI I PIPPIN POPPIN — OO Oo 
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45 55 4E 49 56 4E 4F 3 9 
9 60 


BYTE 9 
eASCII = /CONTINUE/ 
BYTE 0 
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P=1 
-SBTTL Connect process to terminal 
: 3 DCLSCONNECT = Connect process to terminal 


: this routine is called as an internal command to execute the CONNECT 
; DCL command. 


— SRCJCONN ONNECT MAR; 1 


J = Address of scratch — descriptor. 
= Address of scratch stack. 

= Base address of — work area. 
4 = Base address of process work area. 


; OUTPUTS: 
The process is connected to another terminal. 


DCLSCONNECT: : : Connect process 
; Exit if batch job or input is not from a terminal. 


STATUS Sree ume not Gseoemnectante 
BBS DE,PRC_W_FLAGS(R11), 808; esis if bat 

MOVL PRC ; VENPRABCR 17) 7R1 : Get addr ~y —9* t RAB 

BBC #0EUSO_TRM, RABSL. €TX(R1),80$ =: t eeit if input a terminal 


; Process /CNOJLOGOUT and /CNOJCONTINUE qualifiers. 


MOVL #10$_SETMODE ! 1OSM_TT_CONNECT!- Assume /LOGOUT 
1OSM_TT_DISCON,R6™ 


0-0 PRBS LESELSE RESIS — OOo 
8 CSS SELEREERASSENES GRAS — ——* 


CLRL 3: Assume /NOCONTINUE 
10$ BSBW DCLSGETDVAL 3: Get fics, token 

CMPL #PTR_K_COMDQUAL ,R5 3; Qualifier 
BNEQ 0s ~ 3 No, chen | — 
BSBW DCLSGETN 3; Get qualifier number 
CMPL + tha E CONN. CONT,R1 3 Was it /CONTINUE? 
BNEQ 3; No, then branch 
CLRL 3 Assume /NOCONTINUE 
BLBS Rg.108 : Branch if /NOCONTINUE 
INCL R 3; Set /C NUE 
BICL £108H_TT_DISCON.RG : Set /NOLOGOUT 
BRB 3 Get next token 

3 15$ BISL #1088. TT_DISCON,R6 3 {1 060y 

+ BLBC 3 ee i oP OGOUT 

1 BICL 38 TT_DISCON,R6 : Set /NOLOGOUT 

3 BRB ; Get next token 

14 : 

12 3 3: If /NOLOGOUT, check that terminal is disconnectable. 

i3 50s: mova R1,R3 3: Save terminal descriptor 

18 BBS F108V_1T_DISCON,R6, 30S : Branch if /LOGOUT 


K 9 
C T -¢ /di -SEP-1984 241: A - 
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Connect process to terminal 4-SEP- 9:49 (CDCL.SRCJCONNECT.MAR;1 
00A7 30 BSBW DISCONNECTABLE 3: Check disconnectability 
; Connect to new terminal and optionally logout the process. 
7 C zos: CLRQ -(R9) Allocate an 10S8 
» 33 45 Q 


Save terminal name descriptor 
Q10 


R3,-(R9) 
$Q10W_S CHAN=PRC_W_INPCHAN(R11),- Execute the 
10SB=8(R9) += 


FUNCER6,- 
EF Ne#EXESC_SYSEFN, = 
P1=(R9) 


oo 
oO 
* 


BLBC ö di 
MOVZWL 8(R9),RO 
BLBC — RO, 908 


Branch if error 
Use IOSB status 
Branch if error 


3; Continue current process if requested. 


BLBC R7,90$ 
BRW CONT INUE 
RSB 


Branch if /NOCONTINUE 
Execute continue command 
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Disconnect process 1* terminal 4-SEP-1 138 $3 $3: DCL. BS Heeger ARR: 31 eet (3) 


7 148 * -SBTTL Disconnect process from terminal 
A 164 1 DCLSDISCONNECT = Disconnect process from terminal 
A 198 : This routine is called as an internal command to execute the DISCONNECT 
. 12 : DCL command. 
A 149 : INPUTS: 
AO 151: te = Address of scratch buffer descriptor. 
A 1 § 3 = Address of scratch stack. 
A 1 ; = Base edaress of command work area. 
“ ! : ; Ri = Base address of process work area. 
OA 136 : OUTPUTS: 
* 138 ; The process is disconnected from the terminal. 
0AO 160° 
BAS 19} 8 DCLSDISCONNECT:: : Disconnect process 
= 188 : Exit if batch job or input is not from a terminal. 
OQ 165 ° STATUS NOTDISCON : Assume not disconnectable 
06 3 OA 166 BBS one C_V raenké rat W_FLAGS(R11) 30S: Exit if bat 
08 AB DO ODA 16 MOVL COE SINE 741 3; Get addr of * RAB 
02. «€1 908 185 BBC —R v_ TRAC aecalt _CTX(R1),30$ : Exit if input i a terminal 
085 170 : 
008s Veh 3; Check that terminal is disconnectable. 
0058 30 8 BSBW DISCONNECTABLE 3; Check disconnectability 
08 175 : 
: 178 3 3; Disconnect the terminal. 
79 7C 008 178 ios: cra 669) ; Allocate an 10SB 
aoa +44 $Q10W_S eet — W_INPCHAN(R11),- : Execute the Q10 
OBA 181 EFN=#EXES ie Ny : 
OBA 1 § FUN NG ng 108. si tanpe! 10$M_TT -DISCON; 
50 2 ODpC 1 BLBC R $ : Branch if error 
50 69 3C OODF 184 MOVZWL (R9) RO ; Use 10SB status 
12 50 =€9 : ! 5 BLBC RO, 30$ : Branch if error 
E 1 § 
fey 
FFI8" 30 O0E5 190° BSBW DCLSGETDVAL : Get first token 
55 01 E 191 CMPL #PTR_K_COMDQUAL .R5 3; Qualifier? 
ig eB 136 BNEQ eas 3; No, then done 
08 E i 137 BLBC R3, CONTINUE 3: Branch if /CONTINUE 
F 195 20$: STATUS NORMAL 3; Set success status 
os SOF? 198 $08; 314 : Return a 


+ 
: Process /CNOJCONTINUE qualifier. 
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1 * .STTL cont ine process after disconnect 
CONTINUE = Contine process after disconnect 

: This routine is called to issue the CONTINUE command. 
+ INPUTS: 

R8 = Address of scratch sake y descriptor. 

R9 = Address of scratch stack. 

R10. = Base address of —— work area. 

R11 = Base address of process work area. 


: OUTPUTS: 
c 


o WN" OOONAOUS ⏑⏑ 
. . . . 
‘ 


1 
1 
0 } The process continues execution. 
1 
° 16 CONTINUE: : Continue process 
51 FFO4 CF 9E 00 1 MOVAB CONT,R1 3; Get addr of — command 
: 50 3 9A OOFD 1 MOVZBL (R1)+,R0O 3; Get descr of comm 
F896 CA 636 gs 100 21 MOVC  RO,(R1),WRK_G INPBUF (R10) : Move command to inoue buffer 
F895 CA 9E 0106 MOVAB WRK_G_INPBUF-T(R10),- ; Set input buffer pointer 
F48E CA 10A WRK_L_CHARPTR(R10) : 
FEFO" 31 010D BRW DCLSCADSTART 3; Execute the command 


Check that terminal is disconnectable 4-SEP- DCL.SRCIJCONNECT.MAR; 1 (5) 
-SBTTL Check that terminal is disconnectable 

DISCONNECTABLE = Check that terminal is disconnectable 

This routine is called to check that the terminal is disconnectable. 

INPUTS: 


= Address of scratch buffer descriptor. 
R9 = Address of scratch stack. 

R10 = Base address of command work area. 
R11 = Base address of process work area. 


OUTPUTS: 
Routine only returns to caller if terminal is disconnectable. 


Check disconnectability 
Allocate a return buffer 
Create the item List 

Set the buffer address 
Set item code and length 
Allocate an 10S 

Get the terminal chars 


79 4 


‘ 
) 
),=(R9) 
FDEVDEPENDEOTS!4, AR) 
C 


HAN=PRC_W_INPCHAN(R11) ,= 
T=8(R9) += 


B=(R9) ,- 
EFN=#EXESC_SYSEFN 


=z 
o 
<= 
or> 
faa 
6 moor 6 


79 ~=—08 AY +4 
79 0010004 oF D ong: 
SGETOVIW 


tas bead) 

oro 4nn-9o Anne 
AB wa wzAwD 
a 0-000 


2* ~ 
o o 
0000000000000000000000000000000000000 
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——————————————— ot ot oe oe 


13 50 ? BLBC Branch if error 
50. 69 «= 3¢ 49 MOVZWL (R9) RO Use 10SB status 
0D 50 9 4 BLBC R Branch if error 
46 STATUS NOTDISCON Assume not disconnectable 
0118 49 11 3 4D BBC #TT2$V_DISCONNECT,24(R9) ,90$ Branch if not disconnectable 
5 : Return 
8E 05 5 90$: TSTL (SP)+ : Pop return address 
05 32 RSB 3; Return status 
56 


nm 
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Symbol table 
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CONNECT 
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GX 
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USHT IME 
VEPRIV 
Tovl 

TSTATUS 


—2 
< 
a 
o 


RECALLCNT 
“B-VALLEV 


a J <a Be 
92 
enc ec [. 

—#— LOO & LOE €WOY £ CQOVUMIMWOY AL DLVOIMT FDOT VVODVOVV ST DODVODUWT VOOu.o 
Or Ou €Od & &€ OE O00. CE ER PIMPS LADO Doe 
Oo #O000 #00 € €O-O0 & DOOOOOCOSO-OCO- OM -ONOSSCSSO 
S #9DSO # SO & € SOO # O-SDOSOSOSOOSSSOSSSOSSSSSSSSSSSSSSSSse 
SF HMWNOOSO &€ OO € &€ OOO QCOSOSOSOOSOSOSOSOOSOOSOOOOOOOOOSoOO 
Ssssssssoos # O00 ¢ QOOSSOSOSOSOSOOSOOOSOOOOOOSOOSOSO 
ss #O0# €O00 « QCOOOSSOSOOSOSOOOOSOOOSOOOOSSoO 

#OO0COS «OO € € OOO £ COSOSOOOOOOOOOOOOOOOOOoOO 2XOOOOOOCOCOCSSSoS 
u wu » uw vwnun 


NOTDISCON 


CLIS_RORMAC 
CLI$= 
CONT 


CLISK_ CONN CONT 


CONNECT 
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DOD oOo 


FAEAPNIMYSVUAMAM AO 


QOP> PrP oU@mMaorm 


ccm 


“READRTN 
“RECALLPTR 
LEND 

NXT 


WRK 


> 


— — NEON 


omwr~DOmM 


ws 
ce 
MMVOMMUG RO OSA DS 


L- VERB 


FU FN — ee ee 0 8 — — — — — — — — — —— — —— 
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! Psect synopsis ! 
$e rece nmece we cen oeaeat 


PSECT name Allocation PSECT No. Attributes 
» O06 = 00000000 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NO 
SABS FFFFFFFC ¢ 8-3 83 ( 1.) NOPIC USR CON ABS LCL NOSHR 
DCL$ZCODE 00000156 342.) 02 ¢ 2.) NOPIC USR CON L LCL NOSHR 


$m veacre sem enos cee 224 


! Performance indicators ; 


pe ee sme wmeooe ane sowmenmenae 


EXE NORD NOWRT NOVEC BYTE 
EXE RD WRT NOVEC BYTE 
EXE RD NOWRT NOVEC BYTE 


Phase Page faults CPU Time Elapsed Time 
Initialization 15 :00:00. 
C processing 10 00:00. 
Pass 31 — 
Symbol table sort :00:01. 
Pass 4 :00:01. 
Symbol table output 1 ‘ 
Psect synopsis output 3 " 
Cross-reference output " 
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i T - Connect/disconnect process to — 15-SEP-1984 1:17 
VAX- — Macro Run Statistics 4-SEP-1984 $3 $9: 749 fet SRCICONNECT.MAR; 1 


Assembler run totals 498 00:00:16.91 00:00:54.50 


a3 york ing 9 ts Limit was 1200 pages. 
355 bytes Ane of virtual memory were used to buffer the intermediate 84 
here were 7 s of symbol table space allocated to hold 1219 non-local and 10 local symbols. 
zat source — were read in Pass 1, producing 14 object records in Pass 2. 
pages of virtual memory were used to define 26 macros. 


tensa — 2224 


; Macro Library statistics ! 


Cee OR OBS E mere mewame > 


Macro Library name Macros defined 


SDUA g: SYSLIBJSYSBLOMLB.MLB; 1 0 

3 SDUA DCL .0BJ Je 5 
“$ SDUA 8:CSYS : 0 
$255$DUA28: SYSL % stARet” MLB; 2 14 
Tovais (all Libraries) 20 


1420 GETS were required to define 20 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: CONNECT/OBJ=O0BJ$:CONNECT MSRC$: CONNECT/UPDATE=(ENHS: CONNECT) +EXECML$/LIB+LIB$:DCL/LIB+SYS$LIBRARY : SYSBLDMLB/LIB 
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